files-test-read-file-in-: Delete temporary dir on exit

* test/lisp/files-tests.el (files-test-read-file-in-~):
Create subdir inside dir.

diff --git a/test/lisp/files-tests.el b/test/lisp/files-tests.el
index f4ccd5c2044f0d7e5c35b8bf46863849e1ca602d..6fbe993bfddc7a839e6196b6cf07cb80feb07d43 100644 (file)
--- a/test/lisp/files-tests.el
+++ b/test/lisp/files-tests.el
@@ -229,7 +229,7 @@ be $HOME."
                (or def init)))
             (dir (make-temp-file "read-file-name-test" t)))
     (unwind-protect
-        (let ((subdir (expand-file-name "./~/")))
+        (let ((subdir (expand-file-name "./~/" dir)))
           (make-directory subdir t)
           (with-temp-buffer
             (setq default-directory subdir)